From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Jul 2004 14:34:42 +0000 (+0000)
Subject: (occur-read-primary-args): Pass default to read-from-minibuffer.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21627
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=accb7023a7c7f373e1f61952dc455bebc3e8e82c;p=emacs.git

(occur-read-primary-args): Pass default to read-from-minibuffer.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 60c28d6c48a..f81c6f53914 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -786,7 +786,8 @@ If the value is nil, don't highlight the buffer names specially."
 		 nil
 		 nil
 		 nil
-		 'regexp-history)))
+		 'regexp-history
+		 default)))
 	  (if (equal input "")
 	      default
 	    input))